home *** CD-ROM | disk | FTP | other *** search
/ Strategy Challenges Collection / Strategy Challenges Collection.iso / pc / demo / demodata / menu.dxr / 00079.ls < prev    next >
Encoding:
Text File  |  1996-10-02  |  209 b   |  12 lines
  1. on exitFrame
  2.   global gBeenThere, gQuit
  3.   set gQuit to 1
  4.   puppetPalette(the framePalette)
  5.   puppetTransition(6, 2, 16, 0)
  6.   if machineType() <> 256 then
  7.     go("MacQuit")
  8.   else
  9.     go("PCQuit")
  10.   end if
  11. end
  12.